home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / parallax / ibm_pc_d.exe / SAMPLES / FIND.P < prev    next >
Text File  |  1992-11-06  |  855b  |  38 lines

  1. SYSTEM FindMax;
  2. CONST   size=3;
  3.  
  4. CONFIGURATION  field[size],[size];
  5. CONNECTION right: field[i,j] -> field[i, j+1].left;
  6.            left : field[i,j] -> field[i, j-1].right;
  7.            up   : field[i,j] -> field[i+1, j].down;
  8.            down : field[i,j] -> field[i-1, j].up;
  9.  
  10. SCALAR  i      : INTEGER;
  11. VECTOR  value,
  12.         buffer : INTEGER;
  13. BEGIN 
  14.   PARALLEL
  15.     value := id_no
  16.   ENDPARALLEL;
  17.  
  18.   FOR i := 1 TO size-1  DO
  19.     PARALLEL
  20.        buffer := value;
  21.        PROPAGATE.left(buffer);
  22.        IF buffer > value THEN value := buffer END;
  23.     ENDPARALLEL
  24.   END ; (* FOR *)
  25.  
  26.   FOR i := 1 TO size-1  DO
  27.     PARALLEL
  28.        buffer := value;
  29.        PROPAGATE.down(buffer);
  30.        IF buffer > value THEN value := buffer END;
  31.     ENDPARALLEL
  32.   END ; (* FOR *)
  33.  
  34.   STORE [0],[0] (value, i);
  35.   WriteInt(i,10);
  36. END FindMax.
  37.  
  38.